(ange-ftp-kill-ftp-process): Convert buffer name to the buffer.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 922dc28e4f15e21f3f3121fb46460c49c5c04afe..c7e980e6f2c6cbf050cc0bc9bfa127487acf4235 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1499,7 +1499,7 @@ then kill the related ftp process."
          (if parsed
              (let ((host (nth 0 parsed))
                    (user (nth 1 parsed)))
-               (kill-buffer (ange-ftp-ftp-process-buffer host user))))))))
+               (kill-buffer (get-buffer (ange-ftp-ftp-process-buffer host user)))))))))
 
 (defun ange-ftp-quote-string (string)
   "Quote any characters in STRING that may confuse the ftp process."